﻿
Imports std
Imports storoomc

Public Class stornode_redundance2
    Inherits nodes_redundance2
    Implements comparableStorageInterface(Of stornode_redundance2), stornodebase

    Public Const displaySeparator As Char = character.comma

    Public Function CompareTo(ByVal other As stornode_redundance2) As Int32 _
                              Implements IComparable(Of stornode_redundance2).CompareTo
        Return _compare(Me, other)
    End Function

    Public Function CompareTo(ByVal other As stornodebase) As Int32 Implements IComparable(Of stornodebase).CompareTo
        Return cast_compare(Of stornode_redundance2, stornodebase, stornode_redundance2)(Me, other)
    End Function

    Public Sub New(ByVal inputhost As String, ByVal inputport As String)
        _new(Me, inputhost, inputport)
    End Sub

    Public Function display(Optional ByVal length As Int64 = 64) As String Implements IDisplay.display
        Return _display(Me, displaySeparator, length)
    End Function
End Class
